home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
DMTDEMOS
/
BOOTDRV.DEM
next >
Wrap
Text File
|
1994-07-02
|
256b
|
16 lines
program BootDrvSample;
uses crt, DMT;
var
BootDrive : char;
begin
Color( 7, 0 );
clrscr;
BootDrive := BootDrv; { Call BootDrv function }
writeln( #13#10, 'Drive ', BootDrive , ': was used to load DOS.' );
GetEnter;
end.